Notifications
Clear all

Duplicando a cópia

30 Posts
3 Usuários
0 Reactions
2,143 Visualizações
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Está duplicando a cópia

Digitando Ex: 10 e ao clicar no botão inserir aparece dois 10

Linha - 11 aparece 10
Linha - 12 aparece 10

Digitando novamente Ex: 20 aparece da seguinte forma

Linha - 11 aparece 20
Linha - 12 aparece 20
Linha - 13 aparece 10

O que pode ser ?
Não vejo nada que pode está duplicando !

Obrigado desde já !

Sub Inserirlinha()

'desabilita atualização de tela
Application.ScreenUpdating = False


'Copia e insere linha antes da 12
Worksheets("Financeiros").Range("A2:T2").Copy
Range("12:12").Insert Shift:=xlDown

'cola na 11
Range("A11:T11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'habilita atualização de tela
Application.ScreenUpdating = True


End Sub
 
Postado : 26/01/2016 11:12 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Qual a solução encontrada

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 27/01/2016 10:48 am
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Resolvi nada, pois é macabro isso !

 
Postado : 27/01/2016 10:51 am
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Abre essa planilha clica no +

Copiou a linha com o número 10 correto ?
Depois no G2 coloca 20 e vai copiar ficando assim as linhas

20
10

Certinho, perfeito ! Correto ?

Agora vou passar outra planilha com o MESMO CÓDIGO e vai fazer o mesmo procedimento e verá que o número duplica ( linha duplicando )

 
Postado : 27/01/2016 10:56 am
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Agora faz o mesmo procedimento nessa planilha e veja o que acontece

Lembrando: é o mesmo código !

 
Postado : 27/01/2016 11:00 am
(@mprudencio)
Posts: 2749
Famed Member
 

Aqui o codigo das duas planilhas estao funcionando corretamente

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 27/01/2016 11:15 am
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Na planilha Linha10 ao clicar uma vez no meu aparece de cara dois 10

Digitei 30 e apareceu duas linhas de 30 veja a imagem
Se digitar Ex: 20 vai aparecer duas linhas com 20 ficando assim depois

20
20
30
20
10

Entendeu o problema ?

 
Postado : 27/01/2016 11:49 am
(@mprudencio)
Posts: 2749
Famed Member
 

Foi o que eu lhe disse aqui nao esta acontecendo isso...

Funciona perfeitamente

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 27/01/2016 12:18 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Na planilha linha 10 tem o codigo no modulo de planilha (Finaceiros)

Sub Inserirlinha()

'Dim nextrow As Integer
'Dim shtFinanceiros As Worksheet

Worksheets("Financeiros").Range("A2:T2").Copy
Rows(12).Insert shift:=xlDown
Range("A12").PasteSpecial

End Sub

e outro no modulo Geral (Módulo1)

Sub Inserirlinha()

'desabilita atualização de tela
Application.ScreenUpdating = False


'insere linha antes da 12
Worksheets("Financeiros").Range("A2:T2").Copy
Range("12:12").Insert shift:=xlDown

'copia linha 2 e cola na 11
'Rows("2:2").Copy
Range("A11:T11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'habilita atualização de tela
Application.ScreenUpdating = True

End Sub

São diferentes,
a rotina no Modulo Geral irá provocar o que o VONZUBEM descreve
a rotina no Modulo de Planilha perfaz o que o MPRUDENCIO descreve

Qual cada um esta executando

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 27/01/2016 12:40 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Não acredito nisso, pois não cheguei nem a perceber

Reinaldo, qual a diferença desses 2 códigos ?
O primeiro é bem compactado e faz a mesma coisa

Quando deve se trabalhar com modulo geral e modulo de planilha ?

Obrigado desde já !

 
Postado : 27/01/2016 1:28 pm
(@mprudencio)
Posts: 2749
Famed Member
 

Eu estou rodando nas duas planilhas o codigo do modulo....que por padrao se coloca rotinas que dependem da interferencia do usuario

Na folha so uso codigos que devem ser rodados sem a interferencia do usuario

Ou codigo inseridos em objetos activex (botões por exemplo) , mas evito usar assim para evitar confusões.

Tb nao vi o codigo na folha da aba....
:( :shock:

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 27/01/2016 1:45 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Marcelo, primeiro código dentro de modulo Geral (Módulo1) funcionou pra você ?

O meu aparece esse erro

 
Postado : 27/01/2016 2:31 pm
(@mprudencio)
Posts: 2749
Famed Member
 

O codigo que funciona esta no modulo 1 da planilha linha 10 é esse:

Sub Inserirlinha()

'desabilita atualização de tela
Application.ScreenUpdating = False


'insere linha antes da 12
Worksheets("Financeiros").Range("A2:T2").Copy
Range("12:12").Insert shift:=xlDown

'copia linha 2 e cola na 11
'Rows("2:2").Copy
Range("A11:T11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

'habilita atualização de tela
Application.ScreenUpdating = True


End Sub


Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

 
Postado : 27/01/2016 2:52 pm
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Desistooo, pois está duplicando, sendo que não era porque tinha 2 códigos !
Cliquei apenas 1 vez e duplicou e não tem 2 códigos agora

 
Postado : 27/01/2016 4:05 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

A duplicação não é pela existencia das dua rotinas.
Na rotina em Módulo1:
Primeiro Trecho:
'insere linha antes da 12
Worksheets("Financeiros").Range("A2:T2").Copy 'Copia a Range A2:T2
Range("12:12").Insert shift:=xlDown 'Insere linha e os dados copiados na linha 12

Segundo Trecho
'copia linha 2 e cola na 11
'Rows("2:2").Copy 'Copia toda a linha 2
Range("A11:T11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Cola os dados copiados na linha11

Assim pode se notar o motivo da duplicação de dados

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 28/01/2016 8:55 am
(@vonzuben)
Posts: 549
Honorable Member
Topic starter
 

Já fiz de tudo, pois quando tem formatação entre a linha que você quer colar da erro

 
Postado : 28/01/2016 12:42 pm
Página 2 / 2